#!/usr/bin/perl -w
  
use strict;
  use CGI;
  use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use lib qw( /var/pwneth/htdocs/rpg/lib );
use RedMoon::Account;
use RedMoon::Core;
use RedMoon::Utils;

my $q = new CGI;
my $pwn = RedMoon::Account->new;
my $game = RedMoon::Core->new;
my $utils = RedMoon::Utils->new;

my($acct_id) = $q->param('id');
my $session;

		($acct_id,$session) = $pwn->isLoggedIn($acct_id);

			$pwn->destroySesh($acct_id);

			print $q->header;
			print "<script type='text/javascript'>
					<!--
					window.location = \"./login.pl\"
					//-->
					</script>";
